1 Imports System.IO
2 Imports Microsoft.Office.Interop
3 Public Class frmMenu
4
5 #Region " Controlbox "
6
7 Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
8 End
9 End Sub
10
11 Private Sub btnMin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMin.Click
12 Me.WindowState = FormWindowState.Minimized
13 End Sub
14
15 Private Sub TimerMenu_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerMenu.Tick
16 lblDate.Text = Date.Now.ToString("MMMMMMMMMM dd, yyyy")
17 lblTime.Text = TimeOfDay
18 End Sub
19
20 Private Sub btnLogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogout.Click
21 Me.Close()
22 frmLogin.MdiParent = Main
23 frmLogin.Show()
24 End Sub
25
26 #End Region
27
28 #Region " Shortcuts "
29 Private Sub LogoutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogoutToolStripMenuItem.Click
30 btnLogout_Click(sender, e)
31 End Sub
32 #End Region
33
34 Private Sub frmMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
35 auto()
36 Filter_Record()
37 End Sub
38
39 #Region " Procedures "
40 Private Sub Load_Product(ByVal Pname As String, ByVal Pprice As Integer)
41 LstOrder.Items.Add(Pname.Trim + " - " + Pprice.ToString)
42 txtAmount.Text = Format(Val(txtAmount.Text) + Pprice, "###,##0.00")
43 End Sub
44 Private Sub Remove_Product(ByVal Pname As String, ByVal Pprice As Integer)
45 If LstOrder.SelectedItem = Pname.Trim + " - " + Pprice.ToString Then
46 LstOrder.Items.Remove(LstOrder.SelectedItem)
47 txtAmount.Text = Format(Val(txtAmount.Text) - Pprice, "###,##0.00")
48 End If
49 End Sub
50 Private Sub Start_product(ByRef Pnamestart As String, ByRef Pnamepath As String, ByRef Ppricestart As String, ByRef Pimg As String)
51 Try
52 Dim path As String = Application.StartupPath & "\Burger\" & Pnamepath & ".txt"
53 Dim reader As New StreamReader(path)
54 Pnamestart = reader.ReadLine & vbCrLf & vbCrLf
55 Ppricestart = reader.ReadLine
56 Pimg = reader.ReadLine
57 reader.Close()
58 Catch ex As Exception
59 End Try
60 End Sub
61 Private Sub Start_product1(ByRef Pnamestart As String, ByRef Pnamepath As String, ByRef Ppricestart As String, ByRef Pimg As String)
62 Try
63 Dim path As String = Application.StartupPath & "\Drink\" & Pnamepath & ".txt"
64 Dim reader As New StreamReader(path)
65 Pnamestart = reader.ReadLine & vbCrLf & vbCrLf
66 Ppricestart = reader.ReadLine
67 Pimg = reader.ReadLine
68 reader.Close()
69 Catch ex As Exception
70 End Try
71 End Sub
72 Private Sub Start_product2(ByRef Pnamestart As String, ByRef Pnamepath As String, ByRef Ppricestart As String, ByRef Pimg As String)
73 Try
74 Dim path As String = Application.StartupPath & "\Special\" & Pnamepath & ".txt"
75 Dim reader As New StreamReader(path)
76 Pnamestart = reader.ReadLine & vbCrLf & vbCrLf
77 Ppricestart = reader.ReadLine
78 Pimg = reader.ReadLine
79 reader.Close()
80 Catch ex As Exception
81 End Try
82 End Sub
83 Public Sub auto()
84
85 Start_product(btnBurger1.Text, btnBurger1.Name, lblBurger1.Text, btnBurger1.Tag)
86 Start_product(btnBurger2.Text, btnBurger2.Name, lblBurger2.Text, btnBurger2.Tag)
87 Start_product(btnBurger3.Text, btnBurger3.Name, lblBurger3.Text, btnBurger3.Tag)
88 Start_product(btnBurger4.Text, btnBurger4.Name, lblBurger4.Text, btnBurger4.Tag)
89 Start_product(btnBurger5.Text, btnBurger5.Name, lblBurger5.Text, btnBurger5.Tag)
90 Start_product(btnBurger6.Text, btnBurger6.Name, lblBurger6.Text, btnBurger6.Tag)
91 Start_product(btnBurger7.Text, btnBurger7.Name, lblBurger7.Text, btnBurger7.Tag)
92 Start_product(btnBurger8.Text, btnBurger8.Name, lblBurger8.Text, btnBurger8.Tag)
93 Start_product(btnBurger9.Text, btnBurger9.Name, lblBurger9.Text, btnBurger9.Tag)
94 Start_product(btnBurger10.Text, btnBurger10.Name, lblBurger10.Text, btnBurger10.Tag)
95 Start_product(btnBurger11.Text, btnBurger11.Name, lblBurger11.Text, btnBurger11.Tag)
96 Start_product(btnBurger12.Text, btnBurger12.Name, lblBurger12.Text, btnBurger12.Tag)
97 Start_product(btnBurger13.Text, btnBurger13.Name, lblBurger13.Text, btnBurger13.Tag)
98 Start_product(btnBurger14.Text, btnBurger14.Name, lblBurger14.Text, btnBurger14.Tag)
99 Start_product(btnBurger15.Text, btnBurger15.Name, lblBurger15.Text, btnBurger15.Tag)
100 Start_product(btnBurger16.Text, btnBurger16.Name, lblBurger16.Text, btnBurger16.Tag)
101
102 Start_product1(btnDrink1.Text, btnDrink1.Name, lblDrink1.Text, btnDrink1.Tag)
103 Start_product1(btnDrink2.Text, btnDrink2.Name, lblDrink2.Text, btnDrink2.Tag)
104 Start_product1(btnDrink3.Text, btnDrink3.Name, lblDrink3.Text, btnDrink3.Tag)
105 Start_product1(btnDrink4.Text, btnDrink4.Name, lblDrink4.Text, btnDrink4.Tag)
106 Start_product1(btnDrink5.Text, btnDrink5.Name, lblDrink5.Text, btnDrink5.Tag)
107 Start_product1(btnDrink6.Text, btnDrink6.Name, lblDrink6.Text, btnDrink6.Tag)
108 Start_product1(btnDrink7.Text, btnDrink7.Name, lblDrink7.Text, btnDrink7.Tag)
109 Start_product1(btnDrink8.Text, btnDrink8.Name, lblDrink8.Text, btnDrink8.Tag)
110 Start_product1(btnDrink9.Text, btnDrink9.Name, lblDrink9.Text, btnDrink9.Tag)
111 Start_product1(btnDrink10.Text, btnDrink10.Name, lblDrink10.Text, btnDrink10.Tag)
112 Start_product1(btnDrink11.Text, btnDrink11.Name, lblDrink11.Text, btnDrink11.Tag)
113 Start_product1(btnDrink12.Text, btnDrink12.Name, lblDrink12.Text, btnDrink12.Tag)
114 Start_product1(btnDrink13.Text, btnDrink13.Name, lblDrink13.Text, btnDrink13.Tag)
115 Start_product1(btnDrink14.Text, btnDrink14.Name, lblDrink14.Text, btnDrink14.Tag)
116 Start_product1(btnDrink15.Text, btnDrink15.Name, lblDrink15.Text, btnDrink15.Tag)
117 Start_product1(btnDrink16.Text, btnDrink16.Name, lblDrink16.Text, btnDrink16.Tag)
118
119 Start_product2(btnSpecial1.Text, btnSpecial1.Name, lblSpecial1.Text, btnSpecial1.Tag)
120 Start_product2(btnSpecial2.Text, btnSpecial2.Name, lblSpecial2.Text, btnSpecial2.Tag)
121 Start_product2(btnSpecial3.Text, btnSpecial3.Name, lblSpecial3.Text, btnSpecial3.Tag)
122 Start_product2(btnSpecial4.Text, btnSpecial4.Name, lblSpecial4.Text, btnSpecial4.Tag)
123 Start_product2(btnSpecial5.Text, btnSpecial5.Name, lblSpecial5.Text, btnSpecial5.Tag)
124 Start_product2(btnSpecial6.Text, btnSpecial6.Name, lblSpecial6.Text, btnSpecial6.Tag)
125 Start_product2(btnSpecial7.Text, btnSpecial7.Name, lblSpecial7.Text, btnSpecial7.Tag)
126 Start_product2(btnSpecial8.Text, btnSpecial8.Name, lblSpecial8.Text, btnSpecial8.Tag)
127 Start_product2(btnSpecial9.Text, btnSpecial9.Name, lblSpecial9.Text, btnSpecial9.Tag)
128 Start_product2(btnSpecial10.Text, btnSpecial10.Name, lblSpecial10.Text, btnSpecial10.Tag)
129 Start_product2(btnSpecial11.Text, btnSpecial11.Name, lblSpecial11.Text, btnSpecial11.Tag)
130 Start_product2(btnSpecial12.Text, btnSpecial12.Name, lblSpecial12.Text, btnSpecial12.Tag)
131 Start_product2(btnSpecial13.Text, btnSpecial13.Name, lblSpecial13.Text, btnSpecial13.Tag)
132 Start_product2(btnSpecial14.Text, btnSpecial14.Name, lblSpecial14.Text, btnSpecial14.Tag)
133 Start_product2(btnSpecial15.Text, btnSpecial15.Name, lblSpecial15.Text, btnSpecial15.Tag)
134 Start_product2(btnSpecial16.Text, btnSpecial16.Name, lblSpecial16.Text, btnSpecial16.Tag)
135
136
137 Dim str As String = "00.00"
138 Dim i As String = "0"
139 Dim j As String = "1"
140 'Dim reader As New StreamReader(Application.StartupPath & "\Burger\")
141 If lblBurger1.Text = str Then
142 btnBurger1.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
143 btnBurger1.ImageList = ImageList1
144 btnBurger1.ImageIndex = i
145 btnBurger1.Enabled = False
146 Else
147 btnBurger1.ImageList = ImageListBurger
148 btnBurger1.ImageKey = btnBurger1.Tag
149 btnBurger1.Enabled = True
150 End If
151 If lblBurger2.Text = str Then
152 btnBurger2.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
153 btnBurger2.ImageIndex = i
154 btnBurger2.Enabled = False
155 Else
156 btnBurger2.ImageList = ImageListBurger
157 btnBurger2.ImageKey = btnBurger2.Tag
158 btnBurger2.Enabled = True
159 End If
160 If lblBurger3.Text = str Then
161 btnBurger3.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
162 btnBurger3.ImageIndex = i
163 btnBurger3.Enabled = False
164 Else
165 btnBurger3.ImageList = ImageListBurger
166 btnBurger3.ImageKey = btnBurger3.Tag
167 btnBurger3.Enabled = True
168 End If
169 If lblBurger4.Text = str Then
170 btnBurger4.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
171 btnBurger4.ImageIndex = i
172 btnBurger4.Enabled = False
173 Else
174 btnBurger4.ImageList = ImageListBurger
175 btnBurger4.ImageKey = btnBurger4.Tag
176 btnBurger4.Enabled = True
177 End If
178 If lblBurger5.Text = str Then
179 btnBurger5.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
180 btnBurger5.ImageIndex = i
181 btnBurger5.Enabled = False
182 Else
183 btnBurger5.ImageList = ImageListBurger
184 btnBurger5.ImageKey = btnBurger5.Tag
185 btnBurger5.Enabled = True
186 End If
187 If lblBurger6.Text = str Then
188 btnBurger6.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
189 btnBurger6.ImageIndex = i
190 btnBurger6.Enabled = False
191 Else
192 btnBurger6.ImageList = ImageListBurger
193 btnBurger6.ImageKey = btnBurger6.Tag
194 btnBurger6.Enabled = True
195 End If
196 If lblBurger7.Text = str Then
197 btnBurger7.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
198 btnBurger7.ImageIndex = i
199 btnBurger7.Enabled = False
200 Else
201 btnBurger7.ImageList = ImageListBurger
202 btnBurger7.ImageKey = btnBurger7.Tag
203 btnBurger7.Enabled = True
204 End If
205 If lblBurger8.Text = str Then
206 btnBurger8.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
207 btnBurger8.ImageIndex = i
208 btnBurger8.Enabled = False
209 Else
210 btnBurger8.ImageList = ImageListBurger
211 btnBurger8.ImageKey = btnBurger8.Tag
212 btnBurger8.Enabled = True
213 End If
214 If lblBurger9.Text = str Then
215 btnBurger9.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
216 btnBurger9.ImageIndex = i
217 btnBurger9.Enabled = False
218 Else
219 btnBurger9.ImageList = ImageListBurger
220 btnBurger9.ImageKey = btnBurger9.Tag
221 btnBurger9.Enabled = True
222 End If
223 If lblBurger10.Text = str Then
224 btnBurger10.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
225 btnBurger10.ImageIndex = i
226 btnBurger10.Enabled = False
227 Else
228 btnBurger10.ImageList = ImageListBurger
229 btnBurger10.ImageKey = btnBurger10.Tag
230 btnBurger10.Enabled = True
231 End If
232 If lblBurger11.Text = str Then
233 btnBurger11.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
234 btnBurger11.ImageIndex = i
235 btnBurger11.Enabled = False
236 Else
237 btnBurger11.ImageList = ImageListBurger
238 btnBurger11.ImageKey = btnBurger11.Tag
239 btnBurger11.Enabled = True
240 End If
241 If lblBurger12.Text = str Then
242 btnBurger12.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
243 btnBurger12.ImageIndex = i
244 btnBurger12.Enabled = False
245 Else
246 btnBurger12.ImageList = ImageListBurger
247 btnBurger12.ImageKey = btnBurger12.Tag
248 btnBurger12.Enabled = True
249 End If
250 If lblBurger13.Text = str Then
251 btnBurger13.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
252 btnBurger13.ImageIndex = i
253 btnBurger13.Enabled = False
254 Else
255 btnBurger13.ImageList = ImageListBurger
256 btnBurger13.ImageKey = btnBurger13.Tag
257 btnBurger13.Enabled = True
258 End If
259 If lblBurger14.Text = str Then
260 btnBurger14.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
261 btnBurger14.ImageIndex = i
262 btnBurger14.Enabled = False
263 Else
264 btnBurger14.ImageList = ImageListBurger
265 btnBurger14.ImageKey = btnBurger14.Tag
266 btnBurger14.Enabled = True
267 End If
268 If lblBurger15.Text = str Then
269 btnBurger15.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
270 btnBurger15.ImageIndex = i
271 btnBurger15.Enabled = False
272 Else
273 btnBurger15.ImageList = ImageListBurger
274 btnBurger15.ImageKey = btnBurger15.Tag
275 btnBurger15.Enabled = True
276 End If
277 If lblBurger16.Text = str Then
278 btnBurger16.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
279 btnBurger16.ImageIndex = i
280 btnBurger16.Enabled = False
281 Else
282 btnBurger16.ImageList = ImageListBurger
283 btnBurger16.ImageKey = btnBurger16.Tag
284 btnBurger16.Enabled = True
285 End If
286
287 If lblDrink1.Text = str Then
288 btnDrink1.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
289 btnDrink1.ImageList = ImageList1
290 btnDrink1.ImageIndex = i
291 btnDrink1.Enabled = False
292 Else
293 btnDrink1.ImageList = ImageListDrink
294 btnDrink1.ImageKey = btnDrink1.Tag
295 btnDrink1.Enabled = True
296 End If
297 If lblDrink2.Text = str Then
298 btnDrink2.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
299 btnDrink2.ImageIndex = i
300 btnDrink2.Enabled = False
301 Else
302 btnDrink2.ImageList = ImageListDrink
303 btnDrink2.ImageKey = btnDrink2.Tag
304 btnDrink2.Enabled = True
305 End If
306 If lblDrink3.Text = str Then
307 btnDrink3.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
308 btnDrink3.ImageIndex = i
309 btnDrink3.Enabled = False
310 Else
311 btnDrink3.ImageList = ImageListDrink
312 btnDrink3.ImageKey = btnDrink3.Tag
313 btnDrink3.Enabled = True
314 End If
315 If lblDrink4.Text = str Then
316 btnDrink4.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
317 btnDrink4.ImageIndex = i
318 btnDrink4.Enabled = False
319 Else
320 btnDrink4.ImageList = ImageListDrink
321 btnDrink4.ImageKey = btnDrink4.Tag
322 btnDrink4.Enabled = True
323 End If
324 If lblDrink5.Text = str Then
325 btnDrink5.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
326 btnDrink5.ImageIndex = i
327 btnDrink5.Enabled = False
328 Else
329 btnDrink5.ImageList = ImageListDrink
330 btnDrink5.ImageKey = btnDrink5.Tag
331 btnDrink5.Enabled = True
332 End If
333 If lblDrink6.Text = str Then
334 btnDrink6.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
335 btnDrink6.ImageIndex = i
336 btnDrink6.Enabled = False
337 Else
338 btnDrink6.ImageList = ImageListDrink
339 btnDrink6.ImageKey = btnDrink6.Tag
340 btnDrink6.Enabled = True
341 End If
342 If lblDrink7.Text = str Then
343 btnDrink7.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
344 btnDrink7.ImageIndex = i
345 btnDrink7.Enabled = False
346 Else
347 btnDrink7.ImageList = ImageListDrink
348 btnDrink7.ImageKey = btnDrink7.Tag
349 btnDrink7.Enabled = True
350 End If
351 If lblDrink8.Text = str Then
352 btnDrink8.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
353 btnDrink8.ImageIndex = i
354 btnDrink8.Enabled = False
355 Else
356 btnDrink8.ImageList = ImageListDrink
357 btnDrink8.ImageKey = btnDrink8.Tag
358 btnDrink8.Enabled = True
359 End If
360 If lblDrink9.Text = str Then
361 btnDrink9.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
362 btnDrink9.ImageIndex = i
363 btnDrink9.Enabled = False
364 Else
365 btnDrink9.ImageList = ImageListDrink
366 btnDrink9.ImageKey = btnDrink9.Tag
367 btnDrink9.Enabled = True
368 End If
369 If lblDrink10.Text = str Then
370 btnDrink10.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
371 btnDrink10.ImageIndex = i
372 btnDrink10.Enabled = False
373 Else
374 btnDrink10.ImageList = ImageListDrink
375 btnDrink10.ImageKey = btnDrink10.Tag
376 btnDrink10.Enabled = True
377 End If
378 If lblDrink11.Text = str Then
379 btnDrink11.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
380 btnDrink11.ImageIndex = i
381 btnDrink11.Enabled = False
382 Else
383 btnDrink11.ImageList = ImageListDrink
384 btnDrink11.ImageKey = btnDrink11.Tag
385 btnDrink11.Enabled = True
386 End If
387 If lblDrink12.Text = str Then
388 btnDrink12.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
389 btnDrink12.ImageIndex = i
390 btnDrink12.Enabled = False
391 Else
392 btnDrink12.ImageList = ImageListDrink
393 btnDrink12.ImageKey = btnDrink12.Tag
394 btnDrink12.Enabled = True
395 End If
396 If lblDrink13.Text = str Then
397 btnDrink13.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
398 btnDrink13.ImageIndex = i
399 btnDrink13.Enabled = False
400 Else
401 btnDrink13.ImageList = ImageListDrink
402 btnDrink13.ImageKey = btnDrink13.Tag
403 btnDrink13.Enabled = True
404 End If
405 If lblDrink14.Text = str Then
406 btnDrink14.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
407 btnDrink14.ImageIndex = i
408 btnDrink14.Enabled = False
409 Else
410 btnDrink14.ImageList = ImageListDrink
411 btnDrink14.ImageKey = btnDrink14.Tag
412 btnDrink14.Enabled = True
413 End If
414 If lblDrink15.Text = str Then
415 btnDrink15.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
416 btnDrink15.ImageIndex = i
417 btnDrink15.Enabled = False
418 Else
419 btnDrink15.ImageList = ImageListDrink
420 btnDrink15.ImageKey = btnDrink15.Tag
421 btnDrink15.Enabled = True
422 End If
423 If lblDrink16.Text = str Then
424 btnDrink16.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
425 btnDrink16.ImageIndex = i
426 btnDrink16.Enabled = False
427 Else
428 btnDrink16.ImageList = ImageListDrink
429 btnDrink16.ImageKey = btnDrink16.Tag
430 btnDrink16.Enabled = True
431 End If
432
433 If lblSpecial1.Text = str Then
434 btnSpecial1.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
435 btnSpecial1.ImageList = ImageList1
436 btnSpecial1.ImageIndex = i
437 btnSpecial1.Enabled = False
438 Else
439 btnSpecial1.ImageList = ImageListSpecial
440 btnSpecial1.ImageKey = btnSpecial1.Tag
441 btnSpecial1.Enabled = True
442 End If
443 If lblSpecial2.Text = str Then
444 btnSpecial2.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
445 btnSpecial2.ImageIndex = i
446 btnSpecial2.Enabled = False
447 Else
448 btnSpecial2.ImageList = ImageListSpecial
449 btnSpecial2.ImageKey = btnSpecial2.Tag
450 btnSpecial2.Enabled = True
451 End If
452 If lblSpecial3.Text = str Then
453 btnSpecial3.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
454 btnSpecial3.ImageIndex = i
455 btnSpecial3.Enabled = False
456 Else
457 btnSpecial3.ImageList = ImageListSpecial
458 btnSpecial3.ImageKey = btnSpecial3.Tag
459 btnSpecial3.Enabled = True
460 End If
461 If lblSpecial4.Text = str Then
462 btnSpecial4.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
463 btnSpecial4.ImageIndex = i
464 btnSpecial4.Enabled = False
465 Else
466 btnSpecial4.ImageList = ImageListSpecial
467 btnSpecial4.ImageKey = btnSpecial4.Tag
468 btnSpecial4.Enabled = True
469 End If
470 If lblSpecial5.Text = str Then
471 btnSpecial5.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
472 btnSpecial5.ImageIndex = i
473 btnSpecial5.Enabled = False
474 Else
475 btnSpecial5.ImageList = ImageListSpecial
476 btnSpecial5.ImageKey = btnSpecial5.Tag
477 btnSpecial5.Enabled = True
478 End If
479 If lblSpecial6.Text = str Then
480 btnSpecial6.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
481 btnSpecial6.ImageIndex = i
482 btnSpecial6.Enabled = False
483 Else
484 btnSpecial6.ImageList = ImageListSpecial
485 btnSpecial6.ImageKey = btnSpecial6.Tag
486 btnSpecial6.Enabled = True
487 End If
488 If lblSpecial7.Text = str Then
489 btnSpecial7.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
490 btnSpecial7.ImageIndex = i
491 btnSpecial7.Enabled = False
492 Else
493 btnSpecial7.ImageList = ImageListSpecial
494 btnSpecial7.ImageKey = btnSpecial7.Tag
495 btnSpecial7.Enabled = True
496 End If
497 If lblSpecial8.Text = str Then
498 btnSpecial8.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
499 btnSpecial8.ImageIndex = i
500 btnSpecial8.Enabled = False
501 Else
502 btnSpecial8.ImageList = ImageListSpecial
503 btnSpecial8.ImageKey = btnSpecial8.Tag
504 btnSpecial8.Enabled = True
505 End If
506 If lblSpecial9.Text = str Then
507 btnSpecial9.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
508 btnSpecial9.ImageIndex = i
509 btnSpecial9.Enabled = False
510 Else
511 btnSpecial9.ImageList = ImageListSpecial
512 btnSpecial9.ImageKey = btnSpecial9.Tag
513 btnSpecial9.Enabled = True
514 End If
515 If lblSpecial10.Text = str Then
516 btnSpecial10.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
517 btnSpecial10.ImageIndex = i
518 btnSpecial10.Enabled = False
519 Else
520 btnSpecial10.ImageList = ImageListSpecial
521 btnSpecial10.ImageKey = btnSpecial10.Tag
522 btnSpecial10.Enabled = True
523 End If
524 If lblSpecial11.Text = str Then
525 btnSpecial11.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
526 btnSpecial11.ImageIndex = i
527 btnSpecial11.Enabled = False
528 Else
529 btnSpecial11.ImageList = ImageListSpecial
530 btnSpecial11.ImageKey = btnSpecial11.Tag
531 btnSpecial11.Enabled = True
532 End If
533 If lblSpecial12.Text = str Then
534 btnSpecial12.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
535 btnSpecial12.ImageIndex = i
536 btnSpecial12.Enabled = False
537 Else
538 btnSpecial12.ImageList = ImageListSpecial
539 btnSpecial12.ImageKey = btnSpecial12.Tag
540 btnSpecial12.Enabled = True
541 End If
542 If lblSpecial13.Text = str Then
543 btnSpecial13.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
544 btnSpecial13.ImageIndex = i
545 btnSpecial13.Enabled = False
546 Else
547 btnSpecial13.ImageList = ImageListSpecial
548 btnSpecial13.ImageKey = btnSpecial13.Tag
549 btnSpecial13.Enabled = True
550 End If
551 If lblSpecial14.Text = str Then
552 btnSpecial14.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
553 btnSpecial14.ImageIndex = i
554 btnSpecial14.Enabled = False
555 Else
556 btnSpecial14.ImageList = ImageListSpecial
557 btnSpecial14.ImageKey = btnSpecial14.Tag
558 btnSpecial14.Enabled = True
559 End If
560 If lblSpecial15.Text = str Then
561 btnSpecial15.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
562 btnSpecial15.ImageIndex = i
563 btnSpecial15.Enabled = False
564 Else
565 btnSpecial15.ImageList = ImageListSpecial
566 btnSpecial15.ImageKey = btnSpecial15.Tag
567 btnSpecial15.Enabled = True
568 End If
569 If lblSpecial16.Text = str Then
570 btnSpecial16.Text = "NOT AVAILABLE" & vbCrLf & vbCrLf
571 btnSpecial16.ImageIndex = i
572 btnSpecial16.Enabled = False
573 Else
574 btnSpecial16.ImageList = ImageListSpecial
575 btnSpecial16.ImageKey = btnSpecial16.Tag
576 btnSpecial16.Enabled = True
577 End If
578
579 End Sub
580 Private Sub Clear_Product(ByRef ClrPath As String)
581 Dim Clr As String = Application.StartupPath & "\Burger\" & ClrPath & ".txt"
582 Dim reader As New StreamReader(Clr)
583 Dim pname As String = reader.ReadLine
584 reader.Close()
585 Dim writer As New StreamWriter(Clr)
586 writer.WriteLine(pname)
587 writer.WriteLine("00.00")
588 writer.Close()
589 End Sub
590 Private Sub Clear_Product1(ByRef ClrPath As String)
591 Dim Clr As String = Application.StartupPath & "\Drink\" & ClrPath & ".txt"
592 Dim reader As New StreamReader(Clr)
593 Dim pname As String = reader.ReadLine
594 reader.Close()
595 Dim writer As New StreamWriter(Clr)
596 writer.WriteLine(pname)
597 writer.WriteLine("00.00")
598 writer.Close()
599 End Sub
600 Private Sub Clear_Product2(ByRef ClrPath As String)
601 Dim Clr As String = Application.StartupPath & "\Special\" & ClrPath & ".txt"
602 Dim reader As New StreamReader(Clr)
603 Dim pname As String = reader.ReadLine
604 reader.Close()
605 Dim writer As New StreamWriter(Clr)
606 writer.WriteLine(pname)
607 writer.WriteLine("00.00")
608 writer.Close()
609 End Sub
610 Private Sub Load_Datagrid()
611 Try
612 With dtgRecord
613 Dim txt As New StreamReader(Application.StartupPath & "\Record\record.txt")
614 Dim txt1 As New TextBox
615 txt1.Text = txt.ReadToEnd
616 For r As Integer = 0 To txt1.Lines.Count - 2
617 .Rows.Add(txt1.Lines(r).Split("|"))
618 Next
619 txt.Close()
620 lblRecords.Text = "Records: " & .RowCount
621 End With
622 Catch ex As Exception
623 End Try
624 End Sub
625 Private Sub Search_Datagrid_RNo()
626 Try
627 With dtgRecord
628 For Each dgrow As DataGridViewRow In .Rows
629 dgrow.Visible = True
630 If dgrow.Cells(0).Value.ToString.Contains(txtSearch.Text) Then
631 dgrow.Visible = True
632 Else
633 dgrow.Visible = False
634 End If
635 Next
636 lblRecords.Text = "Records: " & .RowCount
637 End With
638 Catch ex As Exception
639 End Try
640 End Sub
641 Private Sub Search_Datagrid_RDate()
642 Try
643 With dtgRecord
644 For Each dgrow As DataGridViewRow In .Rows
645 dgrow.Visible = True
646 If dgrow.Cells(1).Value.ToString.ToLower.Contains(txtSearch.Text) Then
647 dgrow.Visible = True
648 Else
649 dgrow.Visible = False
650 End If
651 Next
652 lblRecords.Text = "Records: " & .RowCount
653 End With
654 Catch ex As Exception
655 End Try
656 End Sub
657 Public Sub Filter_Record()
658 If txtSearchby.SelectedItem = "Receipt No" Then
659 Search_Datagrid_RNo()
660 ElseIf txtSearchby.SelectedItem = "Date" Then
661 Search_Datagrid_RDate()
662 Else
663 Load_Datagrid()
664 End If
665 End Sub
666 #End Region
667
668 #Region " Removing Data "
669 Private Sub BtnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRemove.Click
670 Remove_Product(btnBurger1.Text, Decimal.Parse(lblBurger1.Text))
671 Remove_Product(btnBurger2.Text, Decimal.Parse(lblBurger2.Text))
672 Remove_Product(btnBurger3.Text, Decimal.Parse(lblBurger3.Text))
673 Remove_Product(btnBurger4.Text, Decimal.Parse(lblBurger4.Text))
674 Remove_Product(btnBurger5.Text, Decimal.Parse(lblBurger5.Text))
675 Remove_Product(btnBurger6.Text, Decimal.Parse(lblBurger6.Text))
676 Remove_Product(btnBurger7.Text, Decimal.Parse(lblBurger7.Text))
677 Remove_Product(btnBurger8.Text, Decimal.Parse(lblBurger8.Text))
678 Remove_Product(btnBurger9.Text, Decimal.Parse(lblBurger9.Text))
679 Remove_Product(btnBurger10.Text, Decimal.Parse(lblBurger10.Text))
680 Remove_Product(btnBurger11.Text, Decimal.Parse(lblBurger11.Text))
681 Remove_Product(btnBurger12.Text, Decimal.Parse(lblBurger12.Text))
682 Remove_Product(btnBurger13.Text, Decimal.Parse(lblBurger13.Text))
683 Remove_Product(btnBurger14.Text, Decimal.Parse(lblBurger14.Text))
684 Remove_Product(btnBurger15.Text, Decimal.Parse(lblBurger15.Text))
685 Remove_Product(btnBurger16.Text, Decimal.Parse(lblBurger16.Text))
686
687 Remove_Product(btnDrink1.Text, Decimal.Parse(lblDrink1.Text))
688 Remove_Product(btnDrink2.Text, Decimal.Parse(lblDrink2.Text))
689 Remove_Product(btnDrink3.Text, Decimal.Parse(lblDrink3.Text))
690 Remove_Product(btnDrink4.Text, Decimal.Parse(lblDrink4.Text))
691 Remove_Product(btnDrink5.Text, Decimal.Parse(lblDrink5.Text))
692 Remove_Product(btnDrink6.Text, Decimal.Parse(lblDrink6.Text))
693 Remove_Product(btnDrink7.Text, Decimal.Parse(lblDrink7.Text))
694 Remove_Product(btnDrink8.Text, Decimal.Parse(lblDrink8.Text))
695 Remove_Product(btnDrink9.Text, Decimal.Parse(lblDrink9.Text))
696 Remove_Product(btnDrink10.Text, Decimal.Parse(lblDrink10.Text))
697 Remove_Product(btnDrink11.Text, Decimal.Parse(lblDrink11.Text))
698 Remove_Product(btnDrink12.Text, Decimal.Parse(lblDrink12.Text))
699 Remove_Product(btnDrink13.Text, Decimal.Parse(lblDrink13.Text))
700 Remove_Product(btnDrink14.Text, Decimal.Parse(lblDrink14.Text))
701 Remove_Product(btnDrink15.Text, Decimal.Parse(lblDrink15.Text))
702 Remove_Product(btnDrink16.Text, Decimal.Parse(lblDrink16.Text))
703
704 Remove_Product(btnSpecial1.Text, Decimal.Parse(lblSpecial1.Text))
705 Remove_Product(btnSpecial2.Text, Decimal.Parse(lblSpecial2.Text))
706 Remove_Product(btnSpecial3.Text, Decimal.Parse(lblSpecial3.Text))
707 Remove_Product(btnSpecial4.Text, Decimal.Parse(lblSpecial4.Text))
708 Remove_Product(btnSpecial5.Text, Decimal.Parse(lblSpecial5.Text))
709 Remove_Product(btnSpecial6.Text, Decimal.Parse(lblSpecial6.Text))
710 Remove_Product(btnSpecial7.Text, Decimal.Parse(lblSpecial7.Text))
711 Remove_Product(btnSpecial8.Text, Decimal.Parse(lblSpecial8.Text))
712 Remove_Product(btnSpecial9.Text, Decimal.Parse(lblSpecial9.Text))
713 Remove_Product(btnSpecial10.Text, Decimal.Parse(lblSpecial10.Text))
714 Remove_Product(btnSpecial11.Text, Decimal.Parse(lblSpecial11.Text))
715 Remove_Product(btnSpecial12.Text, Decimal.Parse(lblSpecial12.Text))
716 Remove_Product(btnSpecial13.Text, Decimal.Parse(lblSpecial13.Text))
717 Remove_Product(btnSpecial14.Text, Decimal.Parse(lblSpecial14.Text))
718 Remove_Product(btnSpecial15.Text, Decimal.Parse(lblSpecial15.Text))
719 Remove_Product(btnSpecial16.Text, Decimal.Parse(lblSpecial16.Text))
720 End Sub
721 Public Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click
722 LstOrder.Items.Clear()
723 txtAmount.Text = "0.00"
724 End Sub
725 #End Region
726
727 #Region " Adding Data "
728
729 #Region " Burgers Data "
730 Private Sub btnBurger1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger1.Click
731 Load_Product(btnBurger1.Text, Decimal.Parse(lblBurger1.Text))
732 End Sub
733
734 Private Sub btnBurger2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger2.Click
735 Load_Product(btnBurger2.Text, Decimal.Parse(lblBurger2.Text))
736 End Sub
737
738 Private Sub btnBurger3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger3.Click
739 Load_Product(btnBurger3.Text, Decimal.Parse(lblBurger3.Text))
740 End Sub
741
742 Private Sub btnBurger4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger4.Click
743 Load_Product(btnBurger4.Text, Decimal.Parse(lblBurger4.Text))
744 End Sub
745
746 Private Sub btnBurger5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger5.Click
747 Load_Product(btnBurger5.Text, Decimal.Parse(lblBurger5.Text))
748 End Sub
749
750 Private Sub btnBurger6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger6.Click
751 Load_Product(btnBurger6.Text, Decimal.Parse(lblBurger6.Text))
752 End Sub
753
754 Private Sub btnBurger7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger7.Click
755 Load_Product(btnBurger7.Text, Decimal.Parse(lblBurger7.Text))
756 End Sub
757
758 Private Sub btnBurger8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger8.Click
759 Load_Product(btnBurger8.Text, Decimal.Parse(lblBurger8.Text))
760 End Sub
761
762 Private Sub btnBurger9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger9.Click
763 Load_Product(btnBurger9.Text, Decimal.Parse(lblBurger9.Text))
764 End Sub
765
766 Private Sub btnBurger10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger10.Click
767 Load_Product(btnBurger10.Text, Decimal.Parse(lblBurger10.Text))
768 End Sub
769
770 Private Sub btnBurger11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger11.Click
771 Load_Product(btnBurger11.Text, Decimal.Parse(lblBurger11.Text))
772 End Sub
773
774 Private Sub btnBurger12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger12.Click
775 Load_Product(btnBurger12.Text, Decimal.Parse(lblBurger12.Text))
776 End Sub
777
778 Private Sub btnBurger13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger13.Click
779 Load_Product(btnBurger13.Text, Decimal.Parse(lblBurger13.Text))
780 End Sub
781
782 Private Sub btnBurger14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger14.Click
783 Load_Product(btnBurger14.Text, Decimal.Parse(lblBurger14.Text))
784 End Sub
785
786 Private Sub btnBurger15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger15.Click
787 Load_Product(btnBurger15.Text, Decimal.Parse(lblBurger15.Text))
788 End Sub
789
790 Private Sub btnBurger16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurger16.Click
791 Load_Product(btnBurger16.Text, Decimal.Parse(lblBurger16.Text))
792 End Sub
793 #End Region
794
795 #Region " Drinks Data "
796 Private Sub btnDrink1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink1.Click
797 Load_Product(btnDrink1.Text, Decimal.Parse(lblDrink1.Text))
798 End Sub
799
800 Private Sub btnDrink2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink2.Click
801 Load_Product(btnDrink2.Text, Decimal.Parse(lblDrink2.Text))
802 End Sub
803
804 Private Sub btnDrink3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink3.Click
805 Load_Product(btnDrink3.Text, Decimal.Parse(lblDrink3.Text))
806 End Sub
807
808 Private Sub btnDrink4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink4.Click
809 Load_Product(btnDrink4.Text, Decimal.Parse(lblDrink4.Text))
810 End Sub
811
812 Private Sub btnDrink5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink5.Click
813 Load_Product(btnDrink5.Text, Decimal.Parse(lblDrink5.Text))
814 End Sub
815
816 Private Sub btnDrink6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink6.Click
817 Load_Product(btnDrink6.Text, Decimal.Parse(lblDrink6.Text))
818 End Sub
819
820 Private Sub btnDrink7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink7.Click
821 Load_Product(btnDrink7.Text, Decimal.Parse(lblDrink7.Text))
822 End Sub
823
824 Private Sub btnDrink8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink8.Click
825 Load_Product(btnDrink8.Text, Decimal.Parse(lblDrink8.Text))
826 End Sub
827
828 Private Sub btnDrink9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink9.Click
829 Load_Product(btnDrink9.Text, Decimal.Parse(lblDrink9.Text))
830 End Sub
831
832 Private Sub btnDrink10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink10.Click
833 Load_Product(btnDrink10.Text, Decimal.Parse(lblDrink10.Text))
834 End Sub
835
836 Private Sub btnDrink11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink11.Click
837 Load_Product(btnDrink11.Text, Decimal.Parse(lblDrink11.Text))
838 End Sub
839
840 Private Sub btnDrink12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink12.Click
841 Load_Product(btnDrink12.Text, Decimal.Parse(lblDrink12.Text))
842 End Sub
843
844 Private Sub btnDrink13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink13.Click
845 Load_Product(btnDrink13.Text, Decimal.Parse(lblDrink13.Text))
846 End Sub
847
848 Private Sub btnDrink14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink14.Click
849 Load_Product(btnDrink14.Text, Decimal.Parse(lblDrink14.Text))
850 End Sub
851
852 Private Sub btnDrink15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink15.Click
853 Load_Product(btnDrink15.Text, Decimal.Parse(lblDrink15.Text))
854 End Sub
855
856 Private Sub btnDrink16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrink16.Click
857 Load_Product(btnDrink16.Text, Decimal.Parse(lblDrink16.Text))
858 End Sub
859 #End Region
860
861 #Region " Special Data "
862 Private Sub btnSpecial1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial1.Click
863 Load_Product(btnSpecial1.Text, Decimal.Parse(lblSpecial1.Text))
864 End Sub
865
866 Private Sub btnSpecial2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial2.Click
867 Load_Product(btnSpecial2.Text, Decimal.Parse(lblSpecial2.Text))
868 End Sub
869
870 Private Sub btnSpecial3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial3.Click
871 Load_Product(btnSpecial3.Text, Decimal.Parse(lblSpecial3.Text))
872 End Sub
873
874 Private Sub btnSpecial4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial4.Click
875 Load_Product(btnSpecial4.Text, Decimal.Parse(lblSpecial4.Text))
876 End Sub
877
878 Private Sub btnSpecial5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial5.Click
879 Load_Product(btnSpecial5.Text, Decimal.Parse(lblSpecial5.Text))
880 End Sub
881
882 Private Sub btnSpecial6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial6.Click
883 Load_Product(btnSpecial6.Text, Decimal.Parse(lblSpecial6.Text))
884 End Sub
885
886 Private Sub btnSpecial7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial7.Click
887 Load_Product(btnSpecial7.Text, Decimal.Parse(lblSpecial7.Text))
888 End Sub
889
890 Private Sub btnSpecial8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial8.Click
891 Load_Product(btnSpecial8.Text, Decimal.Parse(lblSpecial8.Text))
892 End Sub
893
894 Private Sub btnSpecial9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial9.Click
895 Load_Product(btnSpecial9.Text, Decimal.Parse(lblSpecial9.Text))
896 End Sub
897
898 Private Sub btnSpecial10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial10.Click
899 Load_Product(btnSpecial10.Text, Decimal.Parse(lblSpecial10.Text))
900 End Sub
901
902 Private Sub btnSpecial11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial11.Click
903 Load_Product(btnSpecial11.Text, Decimal.Parse(lblSpecial11.Text))
904 End Sub
905
906 Private Sub btnSpecial12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial12.Click
907 Load_Product(btnSpecial12.Text, Decimal.Parse(lblSpecial12.Text))
908 End Sub
909
910 Private Sub btnSpecial13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial13.Click
911 Load_Product(btnSpecial13.Text, Decimal.Parse(lblSpecial13.Text))
912 End Sub
913
914 Private Sub btnSpecial14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial14.Click
915 Load_Product(btnSpecial14.Text, Decimal.Parse(lblSpecial14.Text))
916 End Sub
917
918 Private Sub btnSpecial15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial15.Click
919 Load_Product(btnSpecial15.Text, Decimal.Parse(lblSpecial15.Text))
920 End Sub
921
922 Private Sub btnSpecial16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpecial16.Click
923 Load_Product(btnSpecial16.Text, Decimal.Parse(lblSpecial16.Text))
924 End Sub
925 #End Region
926
927 #End Region
928
929 #Region " Editing Data "
930
931 Private Sub btnEditBurger1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger1.Click
932 With frmEdit
933 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger1.Name, frmEdit.txtImg.Text)
934 .PicImg.ImageList = Me.ImageListBurger
935 .ShowDialog()
936 End With
937 End Sub
938 Private Sub btnEditBurger2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger2.Click
939 With frmEdit
940 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger2.Name, frmEdit.txtImg.Text)
941 .PicImg.ImageList = Me.ImageListBurger
942 .ShowDialog()
943 End With
944 End Sub
945 Private Sub btnEditBurger3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger3.Click
946 With frmEdit
947 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger3.Name, frmEdit.txtImg.Text)
948 .PicImg.ImageList = Me.ImageListBurger
949 .ShowDialog()
950 End With
951 End Sub
952 Private Sub btnEditBurger4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger4.Click
953 With frmEdit
954 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger4.Name, frmEdit.txtImg.Text)
955 .PicImg.ImageList = Me.ImageListBurger
956 .ShowDialog()
957 End With
958 End Sub
959 Private Sub btnEditBurger5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger5.Click
960 With frmEdit
961 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger5.Name, frmEdit.txtImg.Text)
962 .PicImg.ImageList = Me.ImageListBurger
963 .ShowDialog()
964 End With
965 End Sub
966 Private Sub btnEditBurger6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger6.Click
967 With frmEdit
968 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger6.Name, frmEdit.txtImg.Text)
969 .PicImg.ImageList = Me.ImageListBurger
970 .ShowDialog()
971 End With
972 End Sub
973 Private Sub btnEditBurger7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger7.Click
974 With frmEdit
975 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger7.Name, frmEdit.txtImg.Text)
976 .PicImg.ImageList = Me.ImageListBurger
977 .ShowDialog()
978 End With
979 End Sub
980 Private Sub btnEditBurger8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger8.Click
981 With frmEdit
982 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger8.Name, frmEdit.txtImg.Text)
983 .PicImg.ImageList = Me.ImageListBurger
984 .ShowDialog()
985 End With
986 End Sub
987 Private Sub btnEditBurger9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger9.Click
988 With frmEdit
989 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger9.Name, frmEdit.txtImg.Text)
990 .PicImg.ImageList = Me.ImageListBurger
991 .ShowDialog()
992 End With
993 End Sub
994 Private Sub btnEditBurger10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger10.Click
995 With frmEdit
996 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger10.Name, frmEdit.txtImg.Text)
997 .PicImg.ImageList = Me.ImageListBurger
998 .ShowDialog()
999 End With
1000 End Sub
1001 Private Sub btnEditBurger11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger11.Click
1002 With frmEdit
1003 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger11.Name, frmEdit.txtImg.Text)
1004 .PicImg.ImageList = Me.ImageListBurger
1005 .ShowDialog()
1006 End With
1007 End Sub
1008 Private Sub btnEditBurger12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger12.Click
1009 With frmEdit
1010 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger12.Name, frmEdit.txtImg.Text)
1011 .PicImg.ImageList = Me.ImageListBurger
1012 .ShowDialog()
1013 End With
1014 End Sub
1015 Private Sub btnEditBurger13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger13.Click
1016 With frmEdit
1017 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger13.Name, frmEdit.txtImg.Text)
1018 .PicImg.ImageList = Me.ImageListBurger
1019 .ShowDialog()
1020 End With
1021 End Sub
1022 Private Sub btnEditBurger14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger14.Click
1023 With frmEdit
1024 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger14.Name, frmEdit.txtImg.Text)
1025 .PicImg.ImageList = Me.ImageListBurger
1026 .ShowDialog()
1027 End With
1028 End Sub
1029 Private Sub btnEditBurger15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger15.Click
1030 With frmEdit
1031 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger15.Name, frmEdit.txtImg.Text)
1032 .PicImg.ImageList = Me.ImageListBurger
1033 .ShowDialog()
1034 End With
1035 End Sub
1036 Private Sub btnEditBurger16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditBurger16.Click
1037 With frmEdit
1038 .Edit_Product(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnBurger16.Name, frmEdit.txtImg.Text)
1039 .PicImg.ImageList = Me.ImageListBurger
1040 .ShowDialog()
1041 End With
1042 End Sub
1043
1044 Private Sub btnEditDrink1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink1.Click
1045 With frmEdit
1046 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink1.Name, frmEdit.txtImg.Text)
1047 .PicImg.ImageList = Me.ImageListDrink
1048 .ShowDialog()
1049 End With
1050 End Sub
1051 Private Sub btnEditDrink2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink2.Click
1052 With frmEdit
1053 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink2.Name, frmEdit.txtImg.Text)
1054 .PicImg.ImageList = Me.ImageListDrink
1055 .ShowDialog()
1056 End With
1057 End Sub
1058 Private Sub btnEditDrink3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink3.Click
1059 With frmEdit
1060 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink3.Name, frmEdit.txtImg.Text)
1061 .PicImg.ImageList = Me.ImageListDrink
1062 .ShowDialog()
1063 End With
1064 End Sub
1065 Private Sub btnEditDrink4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink4.Click
1066 With frmEdit
1067 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink4.Name, frmEdit.txtImg.Text)
1068 .PicImg.ImageList = Me.ImageListDrink
1069 .ShowDialog()
1070 End With
1071 End Sub
1072 Private Sub btnEditDrink5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink5.Click
1073 With frmEdit
1074 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink5.Name, frmEdit.txtImg.Text)
1075 .PicImg.ImageList = Me.ImageListDrink
1076 .ShowDialog()
1077 End With
1078 End Sub
1079 Private Sub btnEditDrink6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink6.Click
1080 With frmEdit
1081 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink6.Name, frmEdit.txtImg.Text)
1082 .PicImg.ImageList = Me.ImageListDrink
1083 .ShowDialog()
1084 End With
1085 End Sub
1086 Private Sub btnEditDrink7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink7.Click
1087 With frmEdit
1088 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink7.Name, frmEdit.txtImg.Text)
1089 .PicImg.ImageList = Me.ImageListDrink
1090 .ShowDialog()
1091 End With
1092 End Sub
1093 Private Sub btnEditDrink8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink8.Click
1094 With frmEdit
1095 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink8.Name, frmEdit.txtImg.Text)
1096 .PicImg.ImageList = Me.ImageListDrink
1097 .ShowDialog()
1098 End With
1099 End Sub
1100 Private Sub btnEditDrink9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink9.Click
1101 With frmEdit
1102 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink9.Name, frmEdit.txtImg.Text)
1103 .PicImg.ImageList = Me.ImageListDrink
1104 .ShowDialog()
1105 End With
1106 End Sub
1107 Private Sub btnEditDrink10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink10.Click
1108 With frmEdit
1109 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink10.Name, frmEdit.txtImg.Text)
1110 .PicImg.ImageList = Me.ImageListDrink
1111 .ShowDialog()
1112 End With
1113 End Sub
1114 Private Sub btnEditDrink11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink11.Click
1115 With frmEdit
1116 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink11.Name, frmEdit.txtImg.Text)
1117 .PicImg.ImageList = Me.ImageListDrink
1118 .ShowDialog()
1119 End With
1120 End Sub
1121 Private Sub btnEditDrink12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink12.Click
1122 With frmEdit
1123 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink12.Name, frmEdit.txtImg.Text)
1124 .PicImg.ImageList = Me.ImageListDrink
1125 .ShowDialog()
1126 End With
1127 End Sub
1128 Private Sub btnEditDrink13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink13.Click
1129 With frmEdit
1130 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink13.Name, frmEdit.txtImg.Text)
1131 .PicImg.ImageList = Me.ImageListDrink
1132 .ShowDialog()
1133 End With
1134 End Sub
1135 Private Sub btnEditDrink14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink14.Click
1136 With frmEdit
1137 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink14.Name, frmEdit.txtImg.Text)
1138 .PicImg.ImageList = Me.ImageListDrink
1139 .ShowDialog()
1140 End With
1141 End Sub
1142 Private Sub btnEditDrink15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink15.Click
1143 With frmEdit
1144 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink15.Name, frmEdit.txtImg.Text)
1145 .PicImg.ImageList = Me.ImageListDrink
1146 .ShowDialog()
1147 End With
1148 End Sub
1149 Private Sub btnEditDrink16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditDrink16.Click
1150 With frmEdit
1151 .Edit_Product1(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnDrink16.Name, frmEdit.txtImg.Text)
1152 .PicImg.ImageList = Me.ImageListDrink
1153 .ShowDialog()
1154 End With
1155 End Sub
1156
1157 Private Sub btnEditSpecial1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial1.Click
1158 With frmEdit
1159 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial1.Name, frmEdit.txtImg.Text)
1160 .PicImg.ImageList = Me.ImageListSpecial
1161 .ShowDialog()
1162 End With
1163 End Sub
1164 Private Sub btnEditSpecial2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial2.Click
1165 With frmEdit
1166 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial2.Name, frmEdit.txtImg.Text)
1167 .PicImg.ImageList = Me.ImageListSpecial
1168 .ShowDialog()
1169 End With
1170 End Sub
1171 Private Sub btnEditSpecial3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial3.Click
1172 With frmEdit
1173 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial3.Name, frmEdit.txtImg.Text)
1174 .PicImg.ImageList = Me.ImageListSpecial
1175 .ShowDialog()
1176 End With
1177 End Sub
1178 Private Sub btnEditSpecial4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial4.Click
1179 With frmEdit
1180 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial4.Name, frmEdit.txtImg.Text)
1181 .PicImg.ImageList = Me.ImageListSpecial
1182 .ShowDialog()
1183 End With
1184 End Sub
1185 Private Sub btnEditSpecial5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial5.Click
1186 With frmEdit
1187 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial5.Name, frmEdit.txtImg.Text)
1188 .PicImg.ImageList = Me.ImageListSpecial
1189 .ShowDialog()
1190 End With
1191 End Sub
1192 Private Sub btnEditSpecial6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial6.Click
1193 With frmEdit
1194 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial6.Name, frmEdit.txtImg.Text)
1195 .PicImg.ImageList = Me.ImageListSpecial
1196 .ShowDialog()
1197 End With
1198 End Sub
1199 Private Sub btnEditSpecial7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial7.Click
1200 With frmEdit
1201 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial7.Name, frmEdit.txtImg.Text)
1202 .PicImg.ImageList = Me.ImageListSpecial
1203 .ShowDialog()
1204 End With
1205 End Sub
1206 Private Sub btnEditSpecial8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial8.Click
1207 With frmEdit
1208 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial8.Name, frmEdit.txtImg.Text)
1209 .PicImg.ImageList = Me.ImageListSpecial
1210 .ShowDialog()
1211 End With
1212 End Sub
1213 Private Sub btnEditSpecial9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial9.Click
1214 With frmEdit
1215 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial9.Name, frmEdit.txtImg.Text)
1216 .PicImg.ImageList = Me.ImageListSpecial
1217 .ShowDialog()
1218 End With
1219 End Sub
1220 Private Sub btnEditSpecial10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial10.Click
1221 With frmEdit
1222 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial10.Name, frmEdit.txtImg.Text)
1223 .PicImg.ImageList = Me.ImageListSpecial
1224 .ShowDialog()
1225 End With
1226 End Sub
1227 Private Sub btnEditSpecial11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial11.Click
1228 With frmEdit
1229 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial11.Name, frmEdit.txtImg.Text)
1230 .PicImg.ImageList = Me.ImageListSpecial
1231 .ShowDialog()
1232 End With
1233 End Sub
1234 Private Sub btnEditSpecial12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial12.Click
1235 With frmEdit
1236 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial12.Name, frmEdit.txtImg.Text)
1237 .PicImg.ImageList = Me.ImageListSpecial
1238 .ShowDialog()
1239 End With
1240 End Sub
1241 Private Sub btnEditSpecial13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial13.Click
1242 With frmEdit
1243 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial13.Name, frmEdit.txtImg.Text)
1244 .PicImg.ImageList = Me.ImageListSpecial
1245 .ShowDialog()
1246 End With
1247 End Sub
1248 Private Sub btnEditSpecial14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial14.Click
1249 With frmEdit
1250 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial14.Name, frmEdit.txtImg.Text)
1251 .PicImg.ImageList = Me.ImageListSpecial
1252 .ShowDialog()
1253 End With
1254 End Sub
1255 Private Sub btnEditSpecial15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial15.Click
1256 With frmEdit
1257 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial15.Name, frmEdit.txtImg.Text)
1258 .PicImg.ImageList = Me.ImageListSpecial
1259 .ShowDialog()
1260 End With
1261 End Sub
1262 Private Sub btnEditSpecial16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditSpecial16.Click
1263 With frmEdit
1264 .Edit_Product2(frmEdit.txtPname.Text, frmEdit.txtPprice.Text, Me.btnSpecial16.Name, frmEdit.txtImg.Text)
1265 .PicImg.ImageList = Me.ImageListSpecial
1266 .ShowDialog()
1267 End With
1268 End Sub
1269
1270 #End Region
1271
1272 #Region " Clear Data "
1273 Private Sub btnClearBurger1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger1.Click
1274 Clear_Product(btnBurger1.Name)
1275 auto()
1276 End Sub
1277 Private Sub btnClearBurger2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger2.Click
1278 Clear_Product(btnBurger2.Name)
1279 auto()
1280 End Sub
1281 Private Sub btnClearBurger3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger3.Click
1282 Clear_Product(btnBurger3.Name)
1283 auto()
1284 End Sub
1285 Private Sub btnClearBurger4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger4.Click
1286 Clear_Product(btnBurger4.Name)
1287 auto()
1288 End Sub
1289 Private Sub btnClearBurger5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger5.Click
1290 Clear_Product(btnBurger5.Name)
1291 auto()
1292 End Sub
1293 Private Sub btnClearBurger6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger6.Click
1294 Clear_Product(btnBurger6.Name)
1295 auto()
1296 End Sub
1297 Private Sub btnClearBurger7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger7.Click
1298 Clear_Product(btnBurger7.Name)
1299 auto()
1300 End Sub
1301 Private Sub btnClearBurger8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger8.Click
1302 Clear_Product(btnBurger8.Name)
1303 auto()
1304 End Sub
1305 Private Sub btnClearBurger9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger9.Click
1306 Clear_Product(btnBurger9.Name)
1307 auto()
1308 End Sub
1309 Private Sub btnClearBurger10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger10.Click
1310 Clear_Product(btnBurger10.Name)
1311 auto()
1312 End Sub
1313 Private Sub btnClearBurger11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger11.Click
1314 Clear_Product(btnBurger11.Name)
1315 auto()
1316 End Sub
1317 Private Sub btnClearBurger12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger12.Click
1318 Clear_Product(btnBurger12.Name)
1319 auto()
1320 End Sub
1321 Private Sub btnClearBurger13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger13.Click
1322 Clear_Product(btnBurger13.Name)
1323 auto()
1324 End Sub
1325 Private Sub btnClearBurger14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger14.Click
1326 Clear_Product(btnBurger14.Name)
1327 auto()
1328 End Sub
1329 Private Sub btnClearBurger15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger15.Click
1330 Clear_Product(btnBurger15.Name)
1331 auto()
1332 End Sub
1333 Private Sub btnClearBurger16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBurger16.Click
1334 Clear_Product(btnBurger16.Name)
1335 auto()
1336 End Sub
1337
1338 Private Sub btnClearDrink1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink1.Click
1339 Clear_product1(btnDrink1.Name)
1340 auto()
1341 End Sub
1342 Private Sub btnClearDrink2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink2.Click
1343 Clear_product1(btnDrink2.Name)
1344 auto()
1345 End Sub
1346 Private Sub btnClearDrink3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink3.Click
1347 Clear_product1(btnDrink3.Name)
1348 auto()
1349 End Sub
1350 Private Sub btnClearDrink4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink4.Click
1351 Clear_product1(btnDrink4.Name)
1352 auto()
1353 End Sub
1354 Private Sub btnClearDrink5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink5.Click
1355 Clear_product1(btnDrink5.Name)
1356 auto()
1357 End Sub
1358 Private Sub btnClearDrink6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink6.Click
1359 Clear_product1(btnDrink6.Name)
1360 auto()
1361 End Sub
1362 Private Sub btnClearDrink7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink7.Click
1363 Clear_product1(btnDrink7.Name)
1364 auto()
1365 End Sub
1366 Private Sub btnClearDrink8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink8.Click
1367 Clear_product1(btnDrink8.Name)
1368 auto()
1369 End Sub
1370 Private Sub btnClearDrink9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink9.Click
1371 Clear_product1(btnDrink9.Name)
1372 auto()
1373 End Sub
1374 Private Sub btnClearDrink10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink10.Click
1375 Clear_product1(btnDrink10.Name)
1376 auto()
1377 End Sub
1378 Private Sub btnClearDrink11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink11.Click
1379 Clear_product1(btnDrink11.Name)
1380 auto()
1381 End Sub
1382 Private Sub btnClearDrink12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink12.Click
1383 Clear_product1(btnDrink12.Name)
1384 auto()
1385 End Sub
1386 Private Sub btnClearDrink13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink13.Click
1387 Clear_product1(btnDrink13.Name)
1388 auto()
1389 End Sub
1390 Private Sub btnClearDrink14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink14.Click
1391 Clear_product1(btnDrink14.Name)
1392 auto()
1393 End Sub
1394 Private Sub btnClearDrink15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink15.Click
1395 Clear_product1(btnDrink15.Name)
1396 auto()
1397 End Sub
1398 Private Sub btnClearDrink16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDrink16.Click
1399 Clear_product1(btnDrink16.Name)
1400 auto()
1401 End Sub
1402
1403 Private Sub btnClearSpecial1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial1.Click
1404 Clear_Product2(btnSpecial1.Name)
1405 auto()
1406 End Sub
1407 Private Sub btnClearSpecial2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial2.Click
1408 Clear_Product2(btnSpecial2.Name)
1409 auto()
1410 End Sub
1411 Private Sub btnClearSpecial3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial3.Click
1412 Clear_Product2(btnSpecial3.Name)
1413 auto()
1414 End Sub
1415 Private Sub btnClearSpecial4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial4.Click
1416 Clear_Product2(btnSpecial4.Name)
1417 auto()
1418 End Sub
1419 Private Sub btnClearSpecial5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial5.Click
1420 Clear_Product2(btnSpecial5.Name)
1421 auto()
1422 End Sub
1423 Private Sub btnClearSpecial6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial6.Click
1424 Clear_Product2(btnSpecial6.Name)
1425 auto()
1426 End Sub
1427 Private Sub btnClearSpecial7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial7.Click
1428 Clear_Product2(btnSpecial7.Name)
1429 auto()
1430 End Sub
1431 Private Sub btnClearSpecial8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial8.Click
1432 Clear_Product2(btnSpecial8.Name)
1433 auto()
1434 End Sub
1435 Private Sub btnClearSpecial9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial9.Click
1436 Clear_Product2(btnSpecial9.Name)
1437 auto()
1438 End Sub
1439 Private Sub btnClearSpecial10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial10.Click
1440 Clear_Product2(btnSpecial10.Name)
1441 auto()
1442 End Sub
1443 Private Sub btnClearSpecial11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial11.Click
1444 Clear_Product2(btnSpecial11.Name)
1445 auto()
1446 End Sub
1447 Private Sub btnClearSpecial12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial12.Click
1448 Clear_Product2(btnSpecial12.Name)
1449 auto()
1450 End Sub
1451 Private Sub btnClearSpecial13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial13.Click
1452 Clear_Product2(btnSpecial13.Name)
1453 auto()
1454 End Sub
1455 Private Sub btnClearSpecial14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial14.Click
1456 Clear_Product2(btnSpecial14.Name)
1457 auto()
1458 End Sub
1459 Private Sub btnClearSpecial15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial15.Click
1460 Clear_Product2(btnSpecial15.Name)
1461 auto()
1462 End Sub
1463 Private Sub btnClearSpecial16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSpecial16.Click
1464 Clear_Product2(btnSpecial16.Name)
1465 auto()
1466 End Sub
1467 #End Region
1468
1469 #Region " Form Events "
1470
1471 Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
1472 End
1473 End Sub
1474
1475 Private Sub BtnPayment_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPayment.Click
1476 If Val(txtAmount.Text) <= 0 Then
1477 MessageBox.Show("Please select a Product before adding payment.", "Invalid Transaction", MessageBoxButtons.OK, MessageBoxIcon.Information)
1478 Else
1479 With frmPayment
1480 .txtAmount.Text = Me.txtAmount.Text
1481 For i = 0 To Me.LstOrder.Items.Count - 1
1482 .LstOrder.Items.Add(LstOrder.Items(i))
1483 Next i
1484 .txtCash.Focus()
1485 .ShowDialog()
1486 End With
1487 End If
1488 End Sub
1489
1490 Private Sub txtSearchby_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearchby.TextChanged
1491 If txtSearchby.SelectedItem = "Receipt No" Then
1492 txtSearch.Mask = "BURGER-000000"
1493 txtSearch.Enabled = True
1494 ElseIf txtSearchby.SelectedItem = "Date" Then
1495 txtSearch.Mask = "00/00/0000"
1496 txtSearch.Text = Format(Date.Now, "MM/dd/yyyy")
1497 txtSearch.Enabled = True
1498 Else
1499 txtSearch.Mask = ""
1500 txtSearch.Enabled = False
1501 End If
1502 End Sub
1503
1504 Private Sub txtSearch_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
1505 Filter_Record()
1506 End Sub
1507
1508 Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click
1509 If dtgRecord.RowCount = Nothing Then
1510 MessageBox.Show("Sorry nothing to export into excel sheet.." & vbCrLf & "Please retrieve data in datagridview", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
1511 Exit Sub
1512 End If
1513 Dim rowsTotal, colsTotal As Short
1514 Dim I, j, iC As Short
1515 System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
1516 Dim xlApp As New Excel.Application
1517
1518 Try
1519 Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add
1520 Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
1521 xlApp.Visible = True
1522
1523 rowsTotal = dtgRecord.RowCount
1524 colsTotal = dtgRecord.Columns.Count - 1
1525 With excelWorksheet
1526 .Cells.Select()
1527 .Cells.Delete()
1528 For iC = 0 To colsTotal
1529 .Cells(1, iC + 1).Value = dtgRecord.Columns(iC).HeaderText
1530 Next
1531 For I = 0 To rowsTotal - 1
1532 For j = 0 To colsTotal
1533 .Cells(I + 2, j + 1).value = dtgRecord.Rows(I).Cells(j).Value
1534 Next j
1535 Next I
1536 .Rows("1:1").Font.FontStyle = "Bold"
1537 .Rows("1:1").Font.Size = 12
1538
1539 .Cells.Columns.AutoFit()
1540 .Cells.Select()
1541 .Cells.EntireColumn.AutoFit()
1542 .Cells(1, 1).Select()
1543 End With
1544 Catch ex As Exception
1545 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
1546 Finally
1547 'RELEASE ALLOACTED RESOURCES
1548 System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
1549 xlApp = Nothing
1550 End Try
1551 End Sub
1552
1553 Private Sub Btnrefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnrefresh.Click
1554 dtgRecord.Rows.Clear()
1555 Filter_Record()
1556 End Sub
1557
1558 Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
1559 Dim writer As New StreamWriter(Application.StartupPath & "\Record\Record.txt")
1560 writer.WriteLine()
1561 writer.Close()
1562 dtgRecord.Rows.Clear()
1563 Filter_Record()
1564 End Sub
1565
1566 Private Sub btnAdmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdmin.Click
1567 frmChangePass.ShowDialog()
1568 End Sub
1569
1570 Private Sub LinkAbout_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkAbout.LinkClicked
1571 frmAbout.ShowDialog()
1572 End Sub
1573
1574 #End Region
1575
1576
1577 End Class